home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 87 / 087.d81 / soapbox 87 / RAMBOOT.S < prev   
Text File  |  2022-08-26  |  1KB  |  93 lines
  1. ;compliments os LOADSTAR
  2. ;this file will autoboot with RAMLink and
  3. ;set the F-keys to more useful settings
  4.  
  5. chrout =$ffd2
  6. .org $c000
  7. .mem
  8. ;obj "@0:ramboot.o"
  9.  
  10. start ldy #0
  11. sty 53281
  12. sty 53280
  13.  
  14. - lda keys,y
  15. cmp #255
  16. beq setup
  17. sta 679,y
  18. iny
  19. bne -
  20.  
  21. setup lda <679
  22. sta 176
  23. lda >679
  24. sta 177
  25. lda #0
  26. sta 155
  27.  
  28. lda #19
  29. jsr chrout
  30.  
  31. lda #13
  32. sta 211
  33. jsr 58732
  34.  
  35. ldy #0
  36. - lda ram,y
  37. beq +
  38. jsr chrout
  39. iny
  40. bne -
  41.  
  42. / ldy #160
  43. lda #7
  44. - sta (243),y
  45. dey
  46. bne -
  47.  
  48. ldx #0
  49.  
  50. - ldy #39
  51. - lda (209),y
  52. ora #128
  53. sta (209),y
  54. lda colors,x
  55. sta (243),y
  56. dey
  57. bpl -
  58.  
  59. lda #13
  60. jsr chrout
  61. inx
  62. cpx #3
  63. bne --
  64.  
  65.  
  66.  
  67. + lda #13
  68. sta 646
  69.  
  70. ldy #0
  71. - lda stuff,y
  72. beq +
  73. jsr $ffd2
  74. iny
  75. bne -
  76. + rts
  77.  
  78. keys .asc "@$:*=s":.byt 13,0
  79. key3 .asc "@$:*":.byt 13,0
  80. key5 .asc "rU:":.byt 13,0
  81. key7 .asc "lI:":.byt 13,0
  82. key2 .asc "@d":.byt 13,0
  83. key4 .asc "@t":.byt 13,0
  84. key6 .asc "@ ":.byt 34:.asc "cd:":.byt 13,0
  85. key8 .asc "@  ":.byt 34:.asc "s:":.byt 0,255
  86. colors .byt 10,8,9
  87. ram .asc "R A M L I N K":.byt 13,13
  88. .asc "       Cool boot from FutureTech":.byt 19,0
  89. stuff .byt 13,13:.asc "F1:SEQ DIR F3:DIR   F5:RUN F7: LIST"
  90. .byt 13
  91. .asc "F2:DLIST   F4:TLIST F6:CD  F8:SCRATCH":.byt 13,14,0
  92.  
  93.